home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amiga / rexxecute / rexecute_install < prev    next >
Encoding:
Text File  |  1995-10-11  |  7.1 KB  |  345 lines
  1. ; This is the Install script for Rexecute.
  2.  
  3. (welcome "Welcome to the Rexecute installer.  This installer uses "
  4.         "the Commodore Amiga Installer®. \n\n")
  5. ;(set @default-dest "SD0:")    ;I use a virtual disk as default whilst debugging!
  6.  
  7.      ; install on hard disk
  8.      (set dest2 (askdir  (prompt "Select the location to install the Rexecute directory")
  9.                           (default @default-dest)
  10.                           (help "Choose a destination partition or directory "
  11.                                 "to contain the Rexecute compiler.  The install "
  12.                                 "program will create a directory called 'Rexecute' "
  13.                                 "in the location you choose and copy the "
  14.                                 "compiler files to it."
  15.                           )
  16.                 )
  17.      )
  18.      (set dest1 (tackon dest2 "Rexecute"))
  19.      (set @default-dest dest1)
  20.      (message "\n\nCompiler will be installed in "
  21.                dest1
  22.      )
  23.  
  24.      (makedir dest2 (safe) (infos))
  25.      (makedir dest1 (safe) (infos))
  26.      (makedir ("%s/Functions" dest1) (safe) (infos))
  27.      (makedir ("%s/Lib" dest1) (safe) (infos))
  28.      (makedir ("%s/ObjectFiles" dest1) (safe) (infos))
  29.      (makedir ("%s/Support" dest1) (safe) (infos))
  30.  
  31. (copyfiles
  32.     (prompt "Copying Rexecute files.")
  33.     (help @copyfiles-help)
  34.     (source "Rexecute:")
  35.     (dest dest1)
  36.     (pattern "Rexecute#?")
  37.     (files)
  38.     (infos)
  39.     (confirm)
  40. )
  41.  
  42. (copyfiles
  43.     (prompt "Copying Librarian")
  44.     (help @copyfiles-help)
  45.     (source "Rexecute:")
  46.     (dest dest1)
  47.     (pattern "Librar#?")
  48.     (files)
  49.     (infos)
  50.     (confirm)
  51. )
  52.  
  53. (copyfiles
  54.     (prompt "Copying Disassembler.")
  55.     (help @copyfiles-help)
  56.     (source "Rexecute:")
  57.     (dest dest1)
  58.     (pattern "DISEx#?")
  59.     (files)
  60.     (infos)
  61.     (confirm)
  62. )
  63.  
  64. (set temp ("%s/Support" dest1))
  65. (copyfiles
  66.     (prompt "Copying support files.")
  67.     (help @copyfiles-help)
  68.     (source "Rexecute:Support")
  69.     (dest temp)
  70.     (all)
  71.     (files)
  72.     (infos)
  73.     (confirm)
  74. )
  75.  
  76. (set temp ("%s/Functions" dest1))
  77. (copyfiles
  78.     (prompt "Copying Function files.")
  79.     (help @copyfiles-help)
  80.     (source "Rexecute:Functions")
  81.     (dest temp)
  82.     (all)
  83.     (files)
  84.     (infos)
  85.     (confirm)
  86. )
  87.  
  88. (set temp1 ("%s/Rexecute_Manual.guide" dest1))
  89. (delete temp1 (safe))
  90.  
  91. (set temp1 ("%s/Rexecute_Install" dest1))
  92. (delete temp1 (safe))
  93.  
  94. (set temp1 ("%s/Rexecute_Install.info" dest1))
  95. (delete temp1 (safe))
  96.  
  97. (copyfiles
  98.     (prompt "Copying Documentation.")
  99.     (help @copyfiles-help)
  100.     (source "Rexecute:Read_Me.info")
  101.     (dest dest1)
  102.     (newname "Rexecute_Manual.guide.info")
  103.     (files)
  104.     (confirm)
  105. )
  106.  
  107. (copyfiles
  108.     (prompt "Copying Documentation.")
  109.     (help @copyfiles-help)
  110.     (source "Rexecute:Rexecute_DOC")
  111.     (dest dest1)
  112.     (newname "Rexecute_Manual.guide")
  113.     (files)
  114. )
  115. (set temp1("%s/Rexecute_Manual.guide" dest1))
  116. (tooltype
  117.     (dest temp1)
  118.     (setdefaulttool "SYS:Utilities/Amigaguide")
  119.     (safe)
  120. )
  121.  
  122. (set action
  123.     (askbool
  124.         (prompt "\n\nDo you wish to install the Examples?")
  125.         (help "\nThis will install all example scripts\nEssential if you wish to run the demo!")
  126.     )
  127. )
  128.  
  129. (if(< @user_level 1)
  130.     (set action 1)
  131. )
  132. (if ( > action 0 )
  133.     (makedir ("%s/Examples" dest1) (safe) (infos))
  134. )
  135. (set temp ("%s/Examples" dest1))
  136. (if ( > action 0 )
  137.     (copyfiles
  138.         (prompt "Copying Examples...")
  139.         (help @copyfiles-help)
  140.         (source "Rexecute:Examples")
  141.         (dest temp)
  142.         (all)
  143.         (files)
  144.         (infos)
  145.         (confirm)
  146.     )
  147. )
  148.  
  149. (set action
  150.     (askbool
  151.         (prompt "\n\nDo you wish to install the Demo?")
  152.         (help "\nThis provides a guided tour of Rexecute\nplus a quick tutorial")
  153.     )
  154. )
  155.  
  156. (if(< @user_level 1)
  157.     (set action 1)
  158. )
  159. (if ( > action 0 )
  160.     (makedir ("%s/Demo" dest1) (safe) (infos))
  161. )
  162. (set temp ("%s/Demo" dest1))
  163. (if ( > action 0 )
  164.     (copyfiles
  165.         (prompt "Copying Demo...")
  166.         (help @copyfiles-help)
  167.         (source "Rexecute:Demo")
  168.         (dest temp)
  169.         (all)
  170.         (files)
  171.         (infos)
  172.         (confirm)
  173.     )
  174. )
  175.  
  176. (set action
  177.     (askbool
  178.         (prompt "\n\nDo you wish to install the\n`C' programmers stuff?")
  179.         (help "\nOnly useful if you are going to include Rexecute\ngenerated Object Files in your own programs.")
  180.     )
  181. )
  182.  
  183. (if(< @user_level 1)
  184.     (set action 1)
  185. )
  186. (if ( > action 0 )
  187.     (makedir ("%s/PROGRAMMERS" dest1) (safe) (infos))
  188. )
  189. (set temp ("%s/PROGRAMMERS" dest1))
  190. (if ( > action 0 )
  191.     (copyfiles
  192.         (prompt "Copying files...")
  193.         (help @copyfiles-help)
  194.         (source "Rexecute:PROGRAMMERS")
  195.         (dest temp)
  196.         (all)
  197.         (files)
  198.         (infos)
  199.         (confirm)
  200.     )
  201. )
  202.  
  203. (set action
  204.     (askbool
  205.         (prompt "\n\nDo you wish to install the Public Domain stuff?")
  206.         (help "\nThis contains some useful libraries and other stuff,\nIts archived with Lha.")
  207.     )
  208. )
  209.  
  210. (if(< @user_level 1)
  211.     (set action 1)
  212. )
  213. (if ( > action 0 )
  214.     (makedir ("%s/Public_Domain" dest1) (safe) (infos))
  215. )
  216. (set temp ("%s/Public_Domain" dest1))
  217. (if ( > action 0 )
  218.     (copyfiles
  219.         (prompt "Copying Lha file...")
  220.         (help @copyfiles-help)
  221.         (source "Rexecute:Public_Domain")
  222.         (dest temp)
  223.         (all)
  224.         (files)
  225.         (infos)
  226.         (confirm)
  227.     )
  228. )
  229.  
  230. (if (NOT (exists "LIBS:Amigaguide.library"))
  231.     (copylib
  232.         (prompt "Copying/Updating AmigaGUIDE.Library")
  233.         (help @copylib-help)
  234.         (source "Rexecute:LIBS/amigaguide.library")
  235.         (dest "Libs:")
  236.         (confirm)
  237.     )
  238. )
  239.  
  240. (if (NOT (exists "LIBS:horizon.library"))
  241.     (copylib
  242.         (prompt "Copying/Updating horizon.Library")
  243.         (help @copylib-help)
  244.         (source "Rexecute:LIBS/horizon.library")
  245.         (dest "Libs:")
  246.     )
  247. )
  248.  
  249. (if (NOT (exists "SYS:Utilities/Amigaguide"))
  250.     (copyfiles
  251.         (prompt "Copying AmigaGUIDE.")
  252.         (help @copyfiles-help)
  253.         (source "Rexecute:AmigaGuide")
  254.         (dest "SYS:Utilities")
  255.         (pattern "AmigaGUIDE#?")
  256.         (files)
  257.         (infos)
  258.         (confirm)
  259.     )
  260. )
  261.  
  262. (copylib
  263.     (prompt "Copying/Updating Other Libraries")
  264.     (help @copylib-help)
  265.     (source "Rexecute:LIBS/rexxapp.library")
  266.     (dest "Libs:")
  267.     (confirm)
  268. )
  269.  
  270. (copylib
  271.     (prompt "Copying/Updating Other Libraries")
  272.     (help @copylib-help)
  273.     (source "Rexecute:LIBS/rexxarplib.library")
  274.     (dest "Libs:")
  275.     (confirm)
  276. )
  277.  
  278. (copylib
  279.     (prompt "Copying/Updating Other Libraries")
  280.     (help @copylib-help)
  281.     (source "Rexecute:LIBS/rexxmathlib.library")
  282.     (dest "Libs:")
  283.     (confirm)
  284. )
  285.  
  286. (copylib
  287.     (prompt "Copying/Updating Other Libraries")
  288.     (help @copylib-help)
  289.     (source "Rexecute:LIBS/rx_intui.library")
  290.     (dest "Libs:")
  291.     (confirm)
  292. )
  293.  
  294. (copylib
  295.     (prompt "Copying/Updating Other Libraries")
  296.     (help @copylib-help)
  297.     (source "Rexecute:LIBS/screenshare.library")
  298.     (dest "Libs:")
  299.     (confirm)
  300. )
  301.  
  302.  
  303. (set temp(  "assign Rexecute: %s\n" dest1))
  304. (set error 0)
  305. (set error
  306.     (trap 4
  307.         (startup "Rexecute"
  308.             (prompt "Adding Rexecute assignment to \"S:user-startup\".")
  309.             (help @startup-help)
  310.             (command (temp))
  311.         )
  312.     )
  313. )
  314.  
  315. (if (> error 0)
  316.     (if (or (= @ioerr 222) (or (= @ioerr 223) (= @ioerr 224)))
  317.         (message "Startup file is write protected. Use protect " "to write enable the file, and select Proceed" )
  318.     ( ;else
  319.         (message "Non-Standard startup sequence detected. You must add " "the following line by hand.\n\n" "    assign Rexecute: " dest1 "\n")
  320.         (set error 0)
  321.     )
  322.     )
  323. )
  324.  
  325. (makeassign "Rexecute" dest1 )
  326. (set temp
  327.     (askstring
  328.         (prompt "\nPlease enter your name\nDo NOT use any punctuation marks!")
  329.         (help "\nThis string will be written into your AUTHOR\ntooltype found within the Rexecute icon.")
  330.     )
  331. )
  332. (set temp1("%s/Rexecute" dest1))
  333. (tooltype
  334.     (dest temp1)
  335.     (settooltype "AUTHOR" temp)
  336. )
  337.  
  338. (set temp("run sys:utilities/amigaguide %s/Rexecute_Manual.guide" dest1))
  339. (run (temp))
  340.  
  341.  
  342. (set end_text "\n\nAll installed,\n\nHave fun!")
  343. (exit end_text)
  344.  
  345.